home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / MAIN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.0 KB  |  44 lines
  1. 10  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2+V$
  2. 20  CLS
  3. 30  LOCATE 3,17:PRINT "* MAIN MENU *"
  4. 40  PRINT:PRINT
  5. 50  LOCATE 6,14:PRINT "A.  Jet Plane
  6. 60  LOCATE 7,14:PRINT "B.  Rabbit
  7. 70  LOCATE 8,14:PRINT "C.  Waterfowl
  8. 80  LOCATE 9,14:PRINT "D.  Candy Dish
  9. 90  LOCATE 10,14:PRINT "E.  Two Boxes
  10. 100  LOCATE 11,14:PRINT "F.  Puppy
  11. 110  LOCATE 12,14:PRINT "G.  Penguin
  12. 120  LOCATE 13,14:PRINT "H.  Samurai Helmet/Grouper
  13. 130  LOCATE 14,14:PRINT "I.  Cicada
  14. 131  LOCATE 15,13:PRINT" J.  Pig
  15. 132  LOCATE 16,13:PRINT" K.  Balloon
  16. 133  LOCATE 17,13:PRINT" L.  Chick
  17. 140  LOCATE 21,10:PRINT "Enter <Letter> desired."
  18. 141  A$=INKEY$:IF A$="" GOTO 141
  19. 142  IF A$="A" OR A$="a" GOTO 220
  20. 143  IF A$="B" OR A$="b" GOTO 230
  21. 144  IF A$="C" OR A$="c" GOTO 240
  22. 145  IF A$="D" OR A$="d" GOTO 250
  23. 146  IF A$="E" OR A$="e" GOTO 260
  24. 147  IF A$="F" OR A$="f" GOTO 270
  25. 148  IF A$="G" OR A$="g" GOTO 280
  26. 149  IF A$="H" OR A$="h" GOTO 290
  27. 150  IF A$="I" OR A$="i" GOTO 300
  28. 151  IF A$="J" OR A$="j" GOTO 310
  29. 152  IF A$="K" OR A$="k" GOTO 320
  30. 153  IF A$="L" OR A$="l" GOTO 330
  31. 154  GOTO 30
  32. 220  CHAIN "a:jet
  33. 230  CHAIN "a:rabbit
  34. 240  CHAIN "a:waterfowl
  35. 250  CHAIN "a:candy
  36. 260  CHAIN "a:boxes
  37. 270  CHAIN "a:puppy
  38. 280  CHAIN "a:penguin
  39. 290  CHAIN "a:helmet
  40. 300  CHAIN "a:cicada
  41. 310  CHAIN "a:pig
  42. 320  CHAIN "a:balloon
  43. 330  CHAIN "a:chick
  44.